object frmEmail: TfrmEmail
  Left = 27
  Top = 35
  Width = 357
  Height = 371
  BorderIcons = [biSystemMenu, biHelp]
  Caption = 'Send Email'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = mnuMain
  OldCreateOrder = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlEmail: TPanel
    Left = 0
    Top = 0
    Width = 349
    Height = 296
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object pnlFrom: TPanel
      Left = 0
      Top = 0
      Width = 349
      Height = 25
      HelpContext = 1501
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvNone
      Caption = 'pnlFrom'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object lblFrom: TLabel
        Left = 17
        Top = 5
        Width = 32
        Height = 15
        Caption = 'From:'
      end
      object edtFrom: TEdit
        Left = 68
        Top = 2
        Width = 245
        Height = 22
        HelpContext = 1501
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnKeyPress = PressEnterKey
      end
    end
    object pnlTo: TPanel
      Left = 0
      Top = 25
      Width = 349
      Height = 25
      HelpContext = 1502
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvNone
      Caption = 'pnlTo'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object lblTo: TLabel
        Left = 16
        Top = 5
        Width = 17
        Height = 15
        Caption = 'To:'
      end
      object btnEmailAddress: TSpeedButton
        Left = 316
        Top = 3
        Width = 19
        Height = 19
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777777070777777777777070F07777777777070FFF077777777070FCF
          FF0777777070FCFC91F07777070FCFCF110D000070FFFCFFF000070807077777
          00300B30000000000330070FBFBFBFBFB03000FBFBFBFBFBFB00000000000000
          0000777777777777777777777777777777777777777777777777}
        OnClick = DisplayEmailAddresses
      end
      object edtTo: TEdit
        Left = 68
        Top = 2
        Width = 245
        Height = 22
        HelpContext = 1502
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Pitch = fpVariable
        Font.Style = []
        HideSelection = False
        ParentFont = False
        TabOrder = 0
        OnKeyPress = PressEnterKey
      end
    end
    object pnlSubject: TPanel
      Left = 0
      Top = 50
      Width = 349
      Height = 25
      HelpContext = 1503
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object lblSubject: TLabel
        Left = 16
        Top = 5
        Width = 44
        Height = 15
        Caption = 'Subject:'
      end
      object edtSubject: TEdit
        Left = 68
        Top = 2
        Width = 245
        Height = 22
        HelpContext = 1503
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnKeyPress = PressEnterKey
      end
    end
    object pnlAttach: TPanel
      Left = 0
      Top = 104
      Width = 349
      Height = 192
      Align = alClient
      BevelOuter = bvNone
      Caption = 'pnlAttach'
      TabOrder = 4
      object lstAttach: TListBox
        Left = 0
        Top = 0
        Width = 349
        Height = 192
        HelpContext = 1505
        Align = alClient
        ItemHeight = 18
        Style = lbOwnerDrawFixed
        TabOrder = 0
        TabWidth = 20
        Visible = False
        OnDrawItem = lstAttachDrawItem
      end
    end
    object mmoBody: TRichEdit
      Left = 0
      Top = 104
      Width = 349
      Height = 192
      HelpContext = 1504
      Align = alClient
      PlainText = True
      ScrollBars = ssVertical
      TabOrder = 3
      WantTabs = True
    end
    object lstAddress: TListBox
      Left = 194
      Top = 196
      Width = 121
      Height = 97
      ItemHeight = 13
      TabOrder = 5
      Visible = False
    end
    object barMail: TSpeedBar
      Left = 0
      Top = 75
      Width = 349
      Height = 29
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Comic Sans MS'
      Font.Style = []
      Options = [sbFlatBtns]
      BtnOffsetHorz = 3
      BtnOffsetVert = 3
      BtnWidth = 24
      BtnHeight = 23
      Images = frmMain.lstImages
      BevelOuter = bvNone
      PopupMenu = pumToolBar
      TabOrder = 6
      InternalVer = 1
      object secFile: TSpeedbarSection
        Caption = 'File'
      end
      object btnEText: TSpeedItem
        Tag = 1
        Caption = 'Enter Text'
        GroupIndex = 1
        Down = True
        Hint = 'Enter text in email'
        ImageIndex = 25
        Spacing = 1
        Left = 3
        Top = 3
        Visible = True
        OnClick = AddButtons
        SectionName = 'File'
      end
      object btnEAttach: TSpeedItem
        Tag = 1
        Caption = 'Attach File'
        GroupIndex = 1
        Hint = 'Attach file to email...'
        ImageIndex = 26
        Spacing = 1
        Left = 27
        Top = 3
        Visible = True
        OnClick = AddButtons
        SectionName = 'File'
      end
      object btnESend: TSpeedItem
        Caption = 'Send Email'
        Hint = 'Send email'
        ImageIndex = 55
        Spacing = 1
        Left = 115
        Top = 3
        Visible = True
        OnClick = AttachButtons
        SectionName = 'File'
      end
      object btnClose: TSpeedItem
        Tag = 5
        Caption = 'Close Email'
        Hint = 'Close email'
        ImageIndex = 50
        Spacing = 1
        Left = 147
        Top = 3
        Visible = True
        OnClick = AttachButtons
        SectionName = 'File'
      end
      object btnRemAttach: TSpeedItem
        Tag = 3
        Caption = 'Remove Attachment'
        Enabled = False
        Hint = 'Remove highlighted attachment'
        ImageIndex = 27
        Spacing = 1
        Left = 83
        Top = 3
        Visible = True
        OnClick = AttachButtons
        SectionName = 'File'
      end
      object btnAddAttach: TSpeedItem
        Tag = 4
        Caption = 'Add Attachment'
        Enabled = False
        Hint = 'Add attachment to email'
        ImageIndex = 22
        Spacing = 1
        Left = 59
        Top = 3
        Visible = True
        OnClick = AttachButtons
        SectionName = 'File'
      end
    end
  end
  object pnlWait: TPanel
    Left = 0
    Top = 296
    Width = 349
    Height = 25
    Align = alBottom
    Alignment = taLeftJustify
    BevelInner = bvLowered
    TabOrder = 1
  end
  object strEmail: TFormStorage
    IniFileName = '\Software\JSoft Consulting\NotePads+'
    IniSection = 'Email Form'
    UseRegistry = True
    StoredProps.Strings = (
      'lstAddress.Items'
      'mniExplore.Checked'
      'mniStandard.Checked'
      'barMail.Options')
    Left = 24
    Top = 208
  end
  object mnuMain: TMainMenu
    Images = frmMain.lstImages
    Left = 80
    Top = 208
    object mniOptions: TMenuItem
      Caption = '&Options'
      object mniBCC: TMenuItem
        Caption = 'Send copy to yourself'
        Checked = True
        Hint = 'Send a copy of the email to yourself'
        OnClick = mniBCCClick
      end
      object mniBar1: TMenuItem
        Caption = '-'
      end
      object mniEnter: TMenuItem
        Caption = '&Enter Text'
        Checked = True
        GroupIndex = 1
        Hint = 'Enter text into body of email'
        ImageIndex = 25
        RadioItem = True
        OnClick = AddButtons
      end
      object mniAttach: TMenuItem
        Caption = '&Attach Files'
        GroupIndex = 1
        Hint = 'Attach files to email'
        ImageIndex = 26
        RadioItem = True
        OnClick = AddButtons
      end
      object mniBar2: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object mniAddAttach: TMenuItem
        Tag = 4
        Caption = 'Add Attachment...'
        Enabled = False
        GroupIndex = 2
        Hint = 'Add attachment to email...'
        ImageIndex = 22
        OnClick = AttachButtons
      end
      object mniRemAttach: TMenuItem
        Tag = 3
        Caption = 'Remove Attachment'
        Enabled = False
        GroupIndex = 2
        Hint = 'Remove highlighted attachment'
        ImageIndex = 27
        OnClick = AttachButtons
      end
      object mniBar4: TMenuItem
        Caption = '-'
        GroupIndex = 2
      end
      object mniSend: TMenuItem
        Caption = '&Send Email'
        GroupIndex = 2
        Hint = 'Send email'
        ImageIndex = 55
        OnClick = AttachButtons
      end
      object mniBar3: TMenuItem
        Caption = '-'
        GroupIndex = 2
      end
      object mniClose: TMenuItem
        Tag = 5
        Caption = '&Close'
        GroupIndex = 2
        Hint = 'Close email'
        ImageIndex = 50
        OnClick = AttachButtons
      end
    end
  end
  object pumToolBar: TPopupMenu
    Left = 108
    Top = 208
    object mniExplore: TMenuItem
      Caption = 'I&Explorer Style'
      Checked = True
      GroupIndex = 3
      Hint = 'Display tool bars with flat buttons'
      RadioItem = True
      OnClick = UpdateMenus
    end
    object mniStandard: TMenuItem
      Tag = 1
      Caption = '&Standard Style'
      GroupIndex = 3
      Hint = 'Display tool bars with raised buttons'
      RadioItem = True
      OnClick = UpdateMenus
    end
  end
  object smtClient: TNMSMTP
    Host = 'mail.jsoftconsulting.com'
    Port = 25
    ReportLevel = 0
    UserID = '1'
    EncodeType = uuMime
    ClearParams = True
    SubType = mtPlain
    Left = 52
    Top = 208
  end
end